Function GetTempDirectory:String;
var buff:array[0..80] of char;
begin
   GetTempPath(sizeof(buff),Buff);
   Result:=buff;
end;
